home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / boostrs.arc / XNSORBIT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-11-06  |  556 b   |  32 lines
  1.  
  2. {$IBodecl}
  3. {$IPutStr}
  4. {$ICopies}
  5. {$IBoxul}
  6. {$ISetAtt}
  7. {$Itimer}
  8. {$INsOrbit}
  9.  
  10. var
  11.    Ulx, Uly : Integer;
  12.  
  13. BEGIN
  14.  
  15.    ClrScr;
  16.    for i := 1 to 15 do
  17.    begin
  18.       Boxul (1+(i-1)*4,1,4+(i-1)*4,4,1,14);
  19.       Boxul (1+(i-1)*4,6,4+(i-1)*4,9,2,14);
  20.       Boxul (1+(i-1)*4,11,4+(i-1)*4,14,3,14);
  21.       Boxul (1+(i-1)*4,16,4+(i-1)*4,19,4,14);
  22.    end;
  23.    PutStr (h,'Press enter to orbit',60,25,14);
  24.    read;
  25.    Randomize;
  26.    Ulx := Random(15);
  27.    Uly := Random( 4);
  28.    NsOrbit (1+Ulx*4, 1+Uly*5, 4+Ulx*4, 4+Uly*5, Uly+1, 4);
  29.  
  30. END.
  31.  
  32.